100 REM PLANETS by Chris Cytera
110 RANDOM 
120 PROTECT 0
130 CLS 
140 REPEAT 
150   LET E=RAND(165)+40,F=RAND(165)+40
160   LET L=RAND(6)+1
170   LET S=RAND(35)+1
180   LET s=S*S
190   FOR Y=-S TO S
200     LET X=SQR(s-Y*Y)
210     LET x=2*X
220     FOR I=-X TO X
230       IF RAND(x)-X<I THEN  INK L
240       ELSE  INK BLACK
250       DOT I+E,Y+F
260     NEXT I
270   NEXT Y
280 UNTIL FALSE
